# Usage: sengoku.tcl

if {![info exists eWorkDir]} {set eWorkDir [file dirname [info script]]}

package require DPeye

pass cleanUpCache
create {
	outputFile sengoku.ps 
	mapFile sengoku.map
	title "Sengoku, designed by Benjamin Hester"
	creator "Mario Huys (woelpad@yahoo.com)"
	$MapDrawingScale 1 $MapUnitScale .8 $MapSupplyScale 1.2
	$FrameThickness 6
	images {
		continent continent.bmp
		internal internal.bmp
		internal2 internal2.bmp
		water {water21.bmp {trace 0 3}}
		water2 {water22.bmp {trace 0 3}}
		locations {locations.bmp {trace 1}}
	}
	borders {
		seaBorders {image {water black water2 grey} {} Border}
		land {image {continent green} LandBrown Border}
		internalBorders {image {internal black internal2 grey} {} Border}
		crossings {shape bridges ArrowBlack}
	}
	locationTypes {
		Supplies {number 0 name 0 draw 1 define -1}
		Territories {number 0 name 1 populate 0 info 1}
		ShapePoints {number 0}
	}
	locations {
		supplies {{locations red} Supplies s {Blue {} S} {
			mut ecg not koz hit nsh mus ina ecz {izm 1 1} ssh
			kai min iwa sag kaz {biz 0 1} omi nag yas bin ise
			owa {set 3 -8} {izu 0 -4} mik tot san kii yat iyo hiz bun
			tos hig sat osu
		}}
		coasts {{locations maroon} Territories c {Red DarkGreen AF} {
			dew mut ecg not {hit 0 -3} etc kag {ecz 0 -1} {shs 0 1} {hok 0 -2} {ina 4 -3}
			{tan 12 -3} {izm -2 -2} {iwa 1} {sag 5 2} {owa 0 1} {biz 1 -3} {sur 2} kaz {har -4 2} {bit 0 -1} {izu 0 -2}
			{set -10 -3} aki {mik -3} {tot 0 -2} nag {bin 5 34} {ise 5 1} {suo 0 -1} {kaw -4} {shm 8} san
			{iyo -3 -7} chz {awa 1 -3} kii {hiz 0 -2} bun {tos 0 -1} {hig 7 -1} {hyu 1} sat {osu 0 -3}
		}}
		lands {{locations lime} Territories l {Green DarkGreen A} {
			sht koz nsh {mus 3 -1} hid {ssh 0 -9} {kai 0 -3} {min 4} {omi 0 -2} {yas 3} {yat 0 -2}
		}}
		waters {{locations navy} Territories w {White White F} {
			tgs nsj soj {tyb 2} ssj wab npo sac {iwc 0 -2} kas osb
			ins {sab 5} tts tss sus kis bus kus pao tsb hyc
			ecs spo arb {shu 0 -5}
		}}
		crossings {{locations magenta} ShapePoints x DarkGreen}
	}
	shapes {
		bridges {crossings {{connection 1.2 {0 1 4.8 3.6}} {1 {3 0 -2} {2 3} {4 -5 -3} {5 3 -1} {6 2}}}}
	}
	units {
		fleet {F ManOfWar}
	}
	powers {
		shimazu {s @Green White}
		mori {r @Olive White}
		chosokabe {c @Purple White}
		asakura {a @Orange White}
		oda {d @Maroon White}
		uesugi {u @Navy White}
		takeda {t Black White}
		hojo {h @HotPink White}
		neutral {" " @LimeGreen White}
	}
	layout {corner adjustments} fontSize 8
	orderHasHeading 2
	drawLayoutBorder 0 composed 0 printLayout 0 testBorder 0 
	addPage 0 pageContents {
		"\{"

		"200 40 DrawFleet"
		"200 40 180 140 ArrowPropose"
		"200 40 100 20 ArrowRetreat"
		"200 40 300 60 ArrowMove"
		
		"180 140 DrawArmy"
		"ProposePhase"
		"180 140 160 240 ArrowMove"
		"RetreatPhase"
		"180 140 80 120 ArrowMove"
		"MovePhase"
		"180 140 280 160 ArrowMove"

		"300 90 DrawFleet"
		"300 90 200 40 180 140 ArrowSupport"
		"300 120 DrawArmy"
		"300 120 180 140 ArrowHold"
		"300 150 DrawFleet"
		"300 150 180 140 160 240 ArrowConvoy"

		"\} dup exec -40 200 translate FailedOrder exec OkOrder 40 -200 translate"
				
		"400 200 DrawFleet"
		"400 200 ArrowArrive"
		"400 230 DrawArmy"
		"400 230 ArrowDepart"
		"400 260 DrawFleet"
		"400 260 ArrowRetreatArrive"
		"400 290 DrawArmy"
		"400 290 ArrowRetreatDepart"
		
		"500 200 DrawFleet"
		"500 200 BuildUnit"
		"500 230 DrawArmy"
		"500 230 DestroyUnit"
		"500 260 DrawFleet"
		"500 260 DisbandUnit"
		"500 290 DrawArmy"
		"500 290 RemoveUnit"
		"500 320 DrawFleet"
		"500 320 FindUnit"
		"500 350 DrawArmy"
		"500 350 LoseUnit"
		"500 380 DrawFleet"
		"500 380 QueryUnit"
    }
}
